home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / SysGen / LOADJFORTH < prev    next >
Encoding:
Text File  |  1992-03-10  |  1.5 KB  |  76 lines
  1. \ Include files to compile COM:JForth
  2. \ MOD: PLB 1/9/91 Use INCLUDE? for jf:HASHING
  3. \
  4. \ 00001 14-may-90 mdh LoadJForth files now in jf:
  5.  
  6. verify-libs @   verify-libs off
  7. max-inline @    6 max-inline !  \ none of this needs to run fast!
  8.  
  9. \ ----------------  Ask about the user preferences...
  10.  
  11. .NEED IfLoadMods
  12.    variable IfLoadMods
  13.    variable IfLoadHash
  14.    variable IfLoadHistory
  15. .ELSE
  16.    IfLoadMods off
  17.    IfLoadHash off
  18.    IfLoadHistory off
  19. .THEN
  20.  
  21. cr ." Do you wish to include MODULE support " y/n  cr
  22. .IF
  23.       IfLoadMods on
  24. .THEN
  25.  
  26.    ." Do you wish to include HASHING support " y/n cr
  27. .IF
  28.       IfLoadHash on
  29. .THEN
  30.  
  31.    ." Do you wish to include Command Line History " y/n cr
  32. .IF
  33.       IfLoadHistory on
  34. .THEN
  35.  
  36. IfLoadMods @
  37. .IF
  38.       include jf:MakeModules  \ 00001
  39. .ELSE
  40.       : detachmodules ;
  41. .THEN
  42.  
  43. IfLoadHash @
  44. .IF
  45.       include? task-hashing jf:Hashing  \ 00001
  46.       hash.on
  47. .THEN
  48.  
  49.  
  50. \ -----------------------------------------------------
  51.  
  52.  
  53. include? measure jf:measure  \ 00001
  54. \ include? words-from jf:Billk-words  \ 00001
  55. include? words-like jf:words-like  \ 00001
  56. include? auto.term jf:auto  \ 00001
  57. include? traps jf:traps  \ 00001
  58. include? doscommand jf:doscommands  \ 00001
  59.  
  60. IfLoadHistory @
  61. .IF
  62.     include? history jf:History  \ 00001
  63.     history.off  ( so that SAVE-FORTH command isn't saved )
  64. .THEN
  65.  
  66. .need dism
  67. include? dism jf:dism  \ 00001
  68. .then
  69.  
  70. max-inline !
  71. verify-libs !
  72.  
  73. decimal 155 #k !   ( gives about 60-70k workarea )
  74.  
  75. cr ." Enter:    SAVE-FORTH COM:JForth" cr cr
  76.